home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / CHIP Turkiye Mart 1999.iso / 101 / registery / regrepair 2000 33 / form1.frm < prev    next >
Text File  |  1999-01-14  |  11KB  |  349 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "RegRepair 2000"
  4.    ClientHeight    =   4590
  5.    ClientLeft      =   60
  6.    ClientTop       =   405
  7.    ClientWidth     =   4605
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4590
  13.    ScaleWidth      =   4605
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   1  'CenterOwner
  16.    Visible         =   0   'False
  17.    Begin VB.TextBox Text1 
  18.       Height          =   285
  19.       Left            =   2160
  20.       TabIndex        =   8
  21.       Top             =   2640
  22.       Width           =   375
  23.    End
  24.    Begin VB.CheckBox Check1 
  25.       BackColor       =   &H00000000&
  26.       Caption         =   "Use Scandisk automaticlly if Windows did not shut down properly"
  27.       ForeColor       =   &H00000080&
  28.       Height          =   375
  29.       Left            =   360
  30.       TabIndex        =   6
  31.       Top             =   720
  32.       Width           =   3855
  33.    End
  34.    Begin VB.CheckBox Check2 
  35.       BackColor       =   &H00000000&
  36.       Caption         =   "This computer is on a network or Dial - Up Network"
  37.       ForeColor       =   &H00000080&
  38.       Height          =   615
  39.       Left            =   360
  40.       TabIndex        =   5
  41.       Top             =   1080
  42.       Width           =   3855
  43.    End
  44.    Begin VB.CheckBox Check3 
  45.       BackColor       =   &H00000000&
  46.       Caption         =   "Show Splash Screen while booting up"
  47.       ForeColor       =   &H00000080&
  48.       Height          =   375
  49.       Left            =   360
  50.       TabIndex        =   4
  51.       Top             =   1680
  52.       Width           =   3855
  53.    End
  54.    Begin VB.CheckBox Check4 
  55.       BackColor       =   &H00000000&
  56.       Caption         =   "Boot to a C prompt instead of Windows"
  57.       ForeColor       =   &H00000080&
  58.       Height          =   375
  59.       Left            =   360
  60.       TabIndex        =   3
  61.       Top             =   2160
  62.       Width           =   3855
  63.    End
  64.    Begin VB.CheckBox Check5 
  65.       BackColor       =   &H00000000&
  66.       Caption         =   "Show Boot Menu for "
  67.       ForeColor       =   &H00000080&
  68.       Height          =   375
  69.       Left            =   360
  70.       TabIndex        =   2
  71.       Top             =   2640
  72.       Width           =   1815
  73.    End
  74.    Begin VB.CheckBox Check6 
  75.       BackColor       =   &H00000000&
  76.       Caption         =   "Enable Function Keys while booting"
  77.       ForeColor       =   &H00000080&
  78.       Height          =   375
  79.       Left            =   360
  80.       TabIndex        =   1
  81.       Top             =   3120
  82.       Width           =   3735
  83.    End
  84.    Begin VB.Label Command1 
  85.       Alignment       =   2  'Center
  86.       BackColor       =   &H00FFFFFF&
  87.       BackStyle       =   0  'Transparent
  88.       Caption         =   "Save These Settings"
  89.       BeginProperty Font 
  90.          Name            =   "Arial"
  91.          Size            =   9.75
  92.          Charset         =   0
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       ForeColor       =   &H00FFFFFF&
  99.       Height          =   360
  100.       Left            =   360
  101.       TabIndex        =   12
  102.       Top             =   4005
  103.       Width           =   2175
  104.    End
  105.    Begin VB.Label Command2 
  106.       Alignment       =   2  'Center
  107.       BackStyle       =   0  'Transparent
  108.       Caption         =   "Back"
  109.       BeginProperty Font 
  110.          Name            =   "Arial"
  111.          Size            =   9.75
  112.          Charset         =   0
  113.          Weight          =   400
  114.          Underline       =   0   'False
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       ForeColor       =   &H00FFFFFF&
  119.       Height          =   360
  120.       Left            =   3195
  121.       TabIndex        =   11
  122.       Top             =   4005
  123.       Width           =   945
  124.    End
  125.    Begin VB.Label Label4 
  126.       BackColor       =   &H00000000&
  127.       BorderStyle     =   1  'Fixed Single
  128.       Height          =   615
  129.       Left            =   240
  130.       TabIndex        =   10
  131.       Top             =   3840
  132.       Width           =   4095
  133.    End
  134.    Begin VB.Label Label3 
  135.       Alignment       =   2  'Center
  136.       Caption         =   "Current Windows Boot Up Options"
  137.       BeginProperty Font 
  138.          Name            =   "Arial"
  139.          Size            =   12
  140.          Charset         =   0
  141.          Weight          =   700
  142.          Underline       =   0   'False
  143.          Italic          =   0   'False
  144.          Strikethrough   =   0   'False
  145.       EndProperty
  146.       ForeColor       =   &H80000002&
  147.       Height          =   255
  148.       Left            =   120
  149.       TabIndex        =   9
  150.       Top             =   120
  151.       Width           =   4335
  152.    End
  153.    Begin VB.Label Label1 
  154.       BackColor       =   &H00000000&
  155.       Caption         =   "Seconds"
  156.       ForeColor       =   &H00000080&
  157.       Height          =   255
  158.       Left            =   2640
  159.       TabIndex        =   7
  160.       Top             =   2685
  161.       Width           =   615
  162.    End
  163.    Begin VB.Label Label2 
  164.       BackColor       =   &H00000000&
  165.       BorderStyle     =   1  'Fixed Single
  166.       Height          =   3135
  167.       Left            =   120
  168.       TabIndex        =   0
  169.       Top             =   480
  170.       Width           =   4335
  171.    End
  172. End
  173. Attribute VB_Name = "Form1"
  174. Attribute VB_GlobalNameSpace = False
  175. Attribute VB_Creatable = False
  176. Attribute VB_PredeclaredId = True
  177. Attribute VB_Exposed = False
  178. Option Explicit
  179.  
  180. Private Sub MakeBlack()
  181. Check1.BackColor = BLACK
  182. Check2.BackColor = BLACK
  183. Check3.BackColor = BLACK
  184. Check4.BackColor = BLACK
  185. Check5.BackColor = BLACK
  186. Check6.BackColor = BLACK
  187. Label1.BackColor = BLACK
  188. Label2.BackColor = BLACK
  189. End Sub
  190. Public Sub MakeBlue()
  191. Check1.BackColor = PALE_BLUE
  192. Check2.BackColor = PALE_BLUE
  193. Check3.BackColor = PALE_BLUE
  194. Check4.BackColor = PALE_BLUE
  195. Check5.BackColor = PALE_BLUE
  196. Check6.BackColor = PALE_BLUE
  197. Label1.BackColor = PALE_BLUE
  198. Label2.BackColor = PALE_BLUE
  199. End Sub
  200. Private Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  201. MakeBlue
  202. End Sub
  203. Private Sub Check2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  204. MakeBlue
  205. End Sub
  206. Private Sub Check3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  207. MakeBlue
  208. End Sub
  209. Private Sub Check4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  210. MakeBlue
  211. End Sub
  212. Private Sub Check5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  213. MakeBlue
  214. End Sub
  215. Private Sub Check6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  216. MakeBlue
  217. End Sub
  218.  
  219. Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  220. MakeBlack
  221. Command1.FontBold = True
  222. Command2.FontBold = False
  223. End Sub
  224.  
  225. Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  226. MakeBlack
  227. Command2.FontBold = True
  228. Command1.FontBold = False
  229. End Sub
  230.  
  231. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  232. MakeBlack
  233. Command1.FontBold = False
  234. Command2.FontBold = False
  235. End Sub
  236.  
  237. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  238. MakeBlue
  239. Command1.FontBold = False
  240. Command2.FontBold = False
  241. End Sub
  242. Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  243. MakeBlue
  244. Command1.FontBold = False
  245. Command2.FontBold = False
  246. End Sub
  247. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  248. MakeBlack
  249. Command1.FontBold = False
  250. Command2.FontBold = False
  251. End Sub
  252. Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  253. MakeBlack
  254. End Sub
  255.  
  256. Private Sub Command1_Click()
  257. On Error Resume Next
  258. SetAttr Drive & "Msdos.sys", 0
  259. Me.MousePointer = 11
  260. Stall 2
  261. If Check1.Enabled = True Then
  262.     If Check1 = 1 Then Writeini Drive & "Msdos.sys", "Options", "Autoscan", "1"
  263.     If Check1 = 0 Then Writeini Drive & "Msdos.sys", "Options", "Autoscan", "0"
  264. End If
  265. If Check2 = 1 Then Writeini Drive & "Msdos.sys", "Options", "Network", "1"
  266. If Check2 = 0 Then Writeini Drive & "Msdos.sys", "Options", "Network", "0"
  267.     
  268. If Check3 = 1 Then Writeini Drive & "Msdos.sys", "Options", "Logo", "1"
  269. If Check3 = 0 Then Writeini Drive & "Msdos.sys", "Options", "Logo", "0"
  270.  
  271. If Check4 = 1 Then Writeini Drive & "Msdos.sys", "Options", "BootGUI", "0"
  272. If Check4 = 0 Then Writeini Drive & "Msdos.sys", "Options", "BootGUI", "1"
  273.  
  274. If Check5 = 1 Then Writeini Drive & "Msdos.sys", "Options", "BootMenu", "1"
  275. If Check5 = 0 Then Writeini Drive & "Msdos.sys", "Options", "BootMenu", "0"
  276.  
  277. If Check6 = 1 Then Writeini Drive & "Msdos.sys", "Options", "BootKeys", "1"
  278. If Check6 = 0 Then Writeini Drive & "Msdos.sys", "Options", "Bootkeys", "0"
  279. If (Len(Text1) > 2) Or (Text1 = "") Then Text1 = "10"
  280. Writeini Drive & "Msdos.sys", "Options", "BootMenuDelay", Text1
  281. Me.MousePointer = 0
  282. MsgBox "The Bootup Setting have been saved!", 0, "RegRepair 2000"
  283. Stall 1
  284. SetAttr Drive & "Msdos.sys", 7
  285. Form8.Visible = True
  286. Unload Me
  287. End Sub
  288.  
  289. Private Sub Command2_Click()
  290. Form8.Visible = True
  291. Unload Me
  292. End Sub
  293.  
  294. Private Sub Form_Activate()
  295. Dim K As Integer
  296. Dim T As String
  297. If ReadIni(Drive & "Msdos.sys", "Options", "Autoscan") = "1" Then
  298.     Check1 = 1
  299. ElseIf ReadIni(Drive & "Msdos.sys", "Options", "Autoscan") = "0" Then
  300.     Check1 = 0
  301. Else
  302.     T = ReadIni(CurDir & "\Basic.lib", "log", "Version")
  303.     If (T = "A") Or (T = "0") Or (T = "U") Then Check1.Enabled = False
  304. End If
  305.     
  306. If ReadIni(Drive & "Msdos.sys", "Options", "Network") = "1" Then
  307.     Check2 = 1
  308. Else
  309.     Check2 = 0
  310. End If
  311.  
  312. If ReadIni(Drive & "Msdos.sys", "Options", "Logo") = "1" Then
  313.     Check3 = 1
  314. Else
  315.     Check3 = 0
  316. End If
  317.  
  318. If ReadIni(Drive & "Msdos.sys", "Options", "BootGUI") = "1" Then
  319.     Check4 = 0
  320. Else
  321.     Check4 = 1
  322. End If
  323.  
  324. If ReadIni(Drive & "Msdos.sys", "Options", "BootMenu") = "1" Then
  325.     Check5 = 1
  326. Else
  327.     Check5 = 0
  328. End If
  329.  
  330. Text1 = ReadIni(Drive & "Msdos.sys", "Options", "BootMenuDelay")
  331. If ReadIni(Drive & "Msdos.sys", "Options", "BootKeys") = "1" Then
  332.     Check6 = 1
  333. Else
  334.     Check6 = 0
  335. End If
  336.  
  337. End Sub
  338.  
  339. Private Sub Form_Load()
  340. Drive = ReadIni(App.Path & "\Basic.lib", "LOG", "Drive")
  341. If Drive = "" Then Drive = GetSetting("RegRepair 2000", "Content", "Drive", "C:\")
  342.  
  343. End Sub
  344.  
  345. Private Sub Form_Unload(Cancel As Integer)
  346. Form8.Visible = True
  347. End Sub
  348.  
  349.